.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
#define kclear 09h
#define k1 8fh
#define k2 90h
.List
.org 9327h

	call _clrlcdfull
	call _runindicoff
	ld hl,1005h
	ld (pencol),hl
	ld hl,menu1
	call _vputs
	ld hl,2005h
	ld (pencol),hl
	ld hl,menu2
	call _vputs
	ld hl,3005h
	ld (pencol),hl
	ld hl,menux
	call _vputs
	ld hl,0000h
	ld (pencol),hl
	ld hl,about
	call _vputs
getkey:
	call _getkey
	cp k1
	jp z,inverse
	cp k2
	jp z,uninverse
	cp kclear
	jp z,quit
	jp nz,getkey
inverse:
	call _clrlcdfull
	set textinverse,(iy+text flags)
	ld hl,2010h
	ld (pencol),hl
	ld hl,txtinverse
	call _vputs
	jp quit
uninverse:
	call _clrlcdfull
	res textinverse,(iy+text flags)
	ld hl,2010h
	ld (pencol),hl
	ld hl,txtuninverse
	call _vputs
	jp quit
quit:
	ret
menu1:
	.db "1. Inverse Text",0
menu2:
	.db "2. UnInvers Text",0
menux:
	.db "press clear to quit",0
txtinverse:
	.db "your text is inversed",0
txtuninverse:
	.db "your text is uninversed",0
about:
	.db "Text Inverser V 1.0",0
.end
end
